home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / amisearchii / archivescripts / as2audio next >
AmigaDOS Script File  |  1997-11-30  |  2KB  |  77 lines
  1. .key archive
  2.  
  3. ; Script for AmiSearch II
  4. ; This script allows the user to have a program for DeliTracker
  5. ; with selected modules. Archives are unpacked if needed.
  6. ; Author : Franck ANIERE
  7. ; Version : 1.0
  8.  
  9. ; Global variables part : you should customize it !
  10.  
  11. SET DECOMPDIR "Ram:"
  12. SET LHA "C:Lha"
  13. SET LZX "C:LZX"
  14. SET DTPROG "Ram:modlist.program"
  15. SET OUT "CON:0/16/640/100/AmiSearch II audio script/CLOSE/WAIT"
  16. SET DTPATH "Aq1:Audio/Players"
  17. SET DTP `TACKON $DTPATH DeliTracker2.27`
  18. SET DTCONFIG `TACKON $DTPATH DELICONFIG/DeliTracker.config`
  19. SET DTPLAY `TACKON $DTPATH DeliPlayers`
  20. SET DTGENIE `TACKON $DTPATH DeliGenies`
  21. SET DTOPT "CLOSEQUITS YES"
  22.  
  23. ; If the directory doesn't exist we create it...
  24.  
  25. SET FULLDIR `Tackon $DECOMPDIR AS2Audio`
  26. CD $DECOMPDIR
  27. IF NOT EXISTS AS2Audio
  28.  MAKEDIR AS2Audio
  29. ENDIF
  30.  
  31. set TheFileName `BASENAME "<archive>"`
  32.  
  33. ; First step : test if we have a LHA archive (.lha/.lzh)
  34.  
  35. SET TheBasename `BASENAME "$TheFileName" .lha`
  36. IF NOT "$TheBasename" EQ "$TheFileName"
  37.   $LHA -m x "<archive>" AS2Audio/ >$OUT
  38.   SKIP COMMON
  39. ENDIF
  40.  
  41. SET TheBasename `BASENAME "$TheFileName" .lzh`
  42. IF NOT "$TheBasename" EQ "$TheFileName"
  43.   $LHA -m x "$TheFileName" AS2Audio/ >$OUT
  44.   SKIP COMMON
  45. ENDIF
  46.  
  47. ; Second step : test if we have a LZX archive
  48.  
  49. SET TheBasename `BASENAME "$TheFileName" .lzx`
  50. IF NOT "$TheBasename" EQ "$TheFileName"
  51.   $LZX -m x "$TheFileName" AS2Audio/ >$OUT
  52.   SKIP COMMON
  53. ENDIF
  54.  
  55. ; So it seems to be a single module, so we copy it...
  56.  
  57. ECHO "Copying module..." >$OUT
  58. COPY "<archive>" AS2Audio
  59.  
  60. ; Now we can create a DT program
  61.  
  62. LAB COMMON
  63.  
  64. SET REALDIR `TACKON $FULLDIR ~(#?.readme|#?.txt|#?.diz|#?.guide)`
  65. LIST $REALDIR LFORMAT="%p%n" > T:FirstFile
  66. SORT T:FirstFile T:SecondFile
  67. DELETE T:FirstFile ALL QUIET
  68. ECHO "MODLIST" > $DTPROG
  69. ECHO "" >> $DTPROG
  70. TYPE T:SecondFile >> $DTPROG
  71. DELETE T:SecondFile ALL QUIET
  72. IF EXISTS $DTP
  73.   RUN $DTP PLAYERPATH $DTPLAY GENIEPATH $DTGENIE CONFIG $DTCONFIG $DTOPT MODULE $DTPROG
  74.  
  75.  
  76.  
  77.